home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0941.dms
/
q0941.adf
/
EasyRexx
/
Bounce.erex
next >
Wrap
Text File
|
1997-04-10
|
534b
|
49 lines
/* EasyCalc 2.0 Arexx Script */
options results
'getresponse "This script makes the cursor bounce around the screen" "_Begin"'
quit = 0
dx=1
dy=1
getmincol
minx = result
getminrow
miny = result
getmaxrow
maxy = result
getmaxcol
maxx = result
cx = minx
cy = miny
easytofront
do while quit < 100
movecursor cx cy
cx = cx + dx
cy = cy + dy
if (cx = maxx - 1) then
dx = -dx
if (cx = minx ) then
dx = -dx
if (cy = maxy - 1) then
dy = -dy
if (cy = miny ) then
dy = -dy
quit = quit + 1
end